COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		DIMENSION I(7),II(7),I3(3),II3(3)
C00004 ENDMK
C⊗;
	DIMENSION I(7),II(7),I3(3),II3(3)
	EQUIVALENCE (I,I3),(II,II3)
	DOUBLE PRECISION NN
1	FORMAT(' TYPE INPUT NAME  '$)
2	FORMAT(' TYPE OUTPUT NAME  '$)
3	FORMAT(A10)
4	FORMAT(A5)
5	FORMAT(3A1,7A5)
8	FORMAT(A3,3A5,A1,3A5)
	NUM=0
	NUX=0
	J='   '
	TYPE 1
	ACCEPT 4,NAM
	TYPE 2
	ACCEPT 3,NN
	CALL IFILE(20,NAM)
	CALL DEFINE(1,0,NONO,NN)
10	READ(20,5,END=20)JJ,JJJ,JJJJ,I
	NUM=NUM+1
	IF(JJ.NE.'	')GO TO 6
	READ(20,5,END=20)KK,KKK,KKKK,II
	NUM=NUM+1
	IF(KK.NE.'	')GO TO 7
	WRITE(1,8)J,I3,KK,II3
	NUX=NUX+1
	GO TO 10
7	WRITE(1,5)JJ,JJJ,JJJJ,I
	WRITE(1,5)KK,KKK,KKKK,II
	NUX=NUX+2
	GO TO 10
6	WRITE(1,5)JJ,JJJ,JJJJ,I
	NUX=NUX+1
	GO TO 10
20	TYPE 21,NUM,NUX
21	FORMAT(' ALL DONE -- LINES IN =',I,'   LINES OUT =',I)
	END